home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
EnigmA Amiga Run 1997 February
/
EnigmA AMIGA RUN 15 (1997)(G.R. Edizioni)(IT)[!][issue 1997-02][PLANET CD V].iso
/
progs
/
thor
/
examples
/
showtext_ex.thor
< prev
Wrap
Text File
|
1996-11-10
|
355b
|
27 lines
/*
*
* ShowText_ex.thor - example program for the SHOWTEXT function
*
*/
options results
thorport = address()
REQUESTFILE title '"Select text file to view:"' id '"s:"' fullpath
if(rc ~= 0) then
do
if(rc = 30) then say THOR.LASTERROR
exit
end
filename = result
SHOWTEXT file '"'filename'"' CMT
if(rc = 30) then
do
say THOR.LASTERROR
end
exit